﻿Imports DevExpress.LookAndFeel
Imports DevExpress.UserSkins

Public Class MoKhoa
    Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        BonusSkins.Register()
        UserLookAndFeel.Default.SetSkinStyle("Liquid Sky")
        ' Add any initialization after the InitializeComponent() call.
    End Sub

    Private Sub SimpleButton2_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton2.Click
        Application.Exit()
    End Sub

    Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton1.Click
        Dim user As New UsersDTO
        user.passwork = txtPasswork.Text
        If (UsersBUS.DangNhap(user)) Then
            Hide()
            Dim frm As New frmHome
            frm.Show()
            'Dim frm2 As New MoKhoa
            'frm2.Close()
        Else
            MessageBox.Show("Mật Khẩu Sai")
        End If
    End Sub
End Class